home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / os2 / mlrxshl.zip / POPD.CMD < prev    next >
OS/2 REXX Batch file  |  1995-02-09  |  327b  |  13 lines
  1. /* popd.cmd */
  2.  
  3. tmpdir = value(TMP,,OS2ENVIRONMENT)
  4. olddir = value(LASTDIR,,OS2ENVIRONMENT)
  5. oldfile= tmpdir'\'value(WP_OBJHANDLE,,OS2ENVIRONMENT)'.'olddir
  6.  
  7. if olddir='' | olddir=0 then exit 1
  8.  
  9. '@set LASTDIR='right(linein(oldfile),1)
  10. call directory linein(oldfile)
  11. call stream oldfile,'c','close'
  12. '@del /f 'oldfile
  13.